home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / LOGO / 3827.ZIP / LOGOLIB.ZIP / GARDEN.LG < prev    next >
Encoding:
Text File  |  1990-06-12  |  381 b   |  32 lines
  1. to garden
  2. !! 
  3. !! Draws a little stylized garden. Do a 'hideturtle' first.
  4. !! 
  5. !! Built out of the parameterized routine 'flower',
  6. !! which is in turn built out of 'petal',
  7. !! which is in turn built out of 'arc'.
  8. !!
  9. pu
  10. back 100
  11. pd
  12. flower 140
  13. pu
  14. rt 90
  15. fd 45
  16. lt 90
  17. pd
  18. flower 50
  19. pu
  20. lt 75
  21. fd 200
  22. rt 75
  23. pd
  24. flower 100
  25. pu
  26. rt 45
  27. fd 120
  28. lt 45
  29. pd
  30. flower 80
  31. end
  32.